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-- MakeModule.Mesa Edited by Sandman on April 28, 1978 8:00 AM 

DIRECTORY 

AltoDefs: FROM ''altodefs", 
AUoFileDefs: FROM "altof iledef s" , 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "ControlDef s" , 
MiscDefs: FROM "miscdefs", 
ImageDefs: FROM "imagedefs". 
lODefs: FROM Nodefs". 
OsStaticDefs: FROM "osstaticdef s" , 
SegmentDef s : FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" , 
SysteniDefs: FROM "systenidef s" . 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM BcdDefs, SegmentDefs; 

MakeModule: PROGRAM 

IMPORTS lODefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs 

PUBLIC BEGIN 

bcdheader: BcdDefs. BCD; 

module: BcdDefs .MTRecord; 

export: POINTER TO BcdDefs . EXPRecord; 

defsfile: BcdDefs. FTRecord; 

codeseg, symbolseg: BcdDefs .SGRecord; 

ssbstring: STRING ^ [60]; 

ssb: BcdDefs. NameString <- LOOPHOLE[ssbstring] ; 

segmentname: STRING ♦- [40]; 

modulename: STRING ♦- [40]; 

defsf ilename: STRING *- [40]; 

outfile: STRING <- [40]; 

in, out: StreamDefs .StreamHandle; 

file: SegmentDef s. FileHandle; 

interf acesize, modulenumber: CARDINAL; 

dname: BcdDef s .NameRecord; 

brFile: BOOLEAN; 

count: CARDINAL; 

WriteBcd: PROCEDURE [out: StreamDefs .StreamHandle] - 
BEGIN OPEN StreamDefs; 

[] <- WriteBlock[out. Obcdheader, SIZE[BcdDef s .BCD]]; 

[] ♦- WriteBlock[out, ssb, StringDefs .WordsForString[ssb. string. length]] ; 
[] <- WriteBlock[out, Qmodule, SIZE[BcdDefs .MTRecord]] ; 
[] *- WriteBlock[out, Qcodeseg, SIZE[BcdDefs .SGRecord]] ; 
[] <r WriteBlock[out, ©symbolseg, SIZE[BcdDefs .SGRecord]] ; 
[] *- WriteBlock[out. ©defsfile. SIZE[BcdDefs . FTRecord]]; 
[] <- WriteBlock[out, export, SIZE[BcdDefs .EXPRecord]+interf acesize] ; 
END; 

FilllnHeader: PROCEDURE - 
BEGIN OPEN bcdheader; 

time: Al toFi leDef s .TIME ^ Mi scDef s . DAYTIME[] ; 
net: CARDINAL <- MiscDefs .GetNetworkNumber[] ; 
MiscDefs.Zero[@bcdheader, SIZE[BcdDef s .BCD]] ; 
versionident <- BcdDef s .VersionID; 
version <- BcdDef s .VersionStamp[ 

time: TimeDefs , PackedTime[lowbi ts : time. low, highbits: time. high], 

zapped: FALSE. 

net: net, 

host: OsStaticDefs .OsStatics .Serial Number] ; 
creator <- BcdDef s .VersionStamp[ 

time: TimeDefs .PackedTime[lowbi ts : 1. highbits: 2], 

zapped: FALSE, 

net: net, 

host: OsStaticDefs .OsStatics .Serial Number]; 
nPages ♦- 1; 

nModules *- nExports <- 1; 
definitions ♦- FALSE; 
firstdummy *- 2; 
nDummies ^ 0; 

ssOffset <- ctOffset ^ impOffset <- ntOffset ^ SIZE[BcdDef s .BCD]; 
ssLimit *- StringDefs .WordsForString[ssb . string, length] ; 
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mtOffset i- ssOffset + LOOPIIOLE[ssLimit, CARDINAL]; 

mtLimit <- LOOPHOLE[SIZE[MTRecord]] ; 

sgOffset ♦- mtOffset + LOOPHOLE[mtLimit, CARDINAL]; 

sgLimit ^ L00PH0LE[2*SIZE[SGRecord]]; 

ftOffset ^ sgOffset + LOOPMOLE[sgLimit, CARDINAL]; 

ftLimit ^ LOOPHOLE[SIZE[FTRecord]]; 

expOffset ^ ftOffset + LOOPHOLE[f tLimit . CARDINAL]; 

expLimit ^ LOOPHOLE[SIZE[EXPRecord]+interfacesize]; 

source ^ BcdDefs.NullName; 

-- all other fields are set to zero 

RETURN 

END; 

FilllnModule: PROCEDURE [name: BcdDef s.NameRecord, segmentSize: CARDINAL] - 
BEGIN 

MiscDefs.Zero[0module, SIZE[MTRecord]]; 
module <- MTRecord[name: name, namedinstance: FALSE, initial: FALSE, 

file: FTSelf, links: frame, config: CTNull, code: [sgi: FIRST[S6Index] , 

linkspace: FALSE, packed: FALSE, offset: 0, length: 2*segmentSize]. 

sseg: FIRST[SGIndex]+SIZE[SGRecord] , framesize: 4, fsi: 0, gfi: 1. 

ngfi: 1, frame: [length: 0, frag: ]]; 
codeseg <- SGRecord[class : code, file: FTSelf, base: 2, 

pages: SystemDef s. PagesForWords[segmentSize] , extraPages: 0]; 
symbolseg <- SGRecord[class: symbols, file: FTNull, base: 0. 

pages: 0, extraPages: 0]; 
RETURN 
END; 

FilllnExport: PROCEDURE [name: BcdDef s .NameRecord] ■ 
BEGIN 
export ♦- SystemDef s .Al locateHeapNode[ 

SIZE [BcdDef s.EXPRecord]+interf aces ize]; 
Mi scDefs.Zero[ export, SIZE[ BcdDef s .EXPRecord]+in terf aces ize]; 
exportt 4- EXPRecord[name: name, size: interf acesize, port: interface, 

namedinstance: FALSE, file: FIRST[FTIndex] . links:]; 
export.! inks[modulenumber] *- 

ControlDef s.ControlLink[procedure[gf i : 1, ep: 0, tag: frame]]; 
-- all other fields are set to zero 
RETURN 
END; 

FilllnDefsFile: PROCEDURE [name: BcdDef s .NameRecord] « 
BEGIN OPEN SegmentDefs; 
defsseg: FileSegmentHandle; 
defsbcd: POINTER TO BcdOefs.BCD; 
s: STRING ♦- [40]; 

StringDefs.AppendString[s, def sf ilename]; 
StringDefs.AppendString[s, ".bed."]; 

defsseg ^ NewFileSegment[NewFile[s. Read, OldFileOnly] , 1, 1, Read]; 
Swapln[def sseg] ; 

defsbcd ♦- F ileSegmentAddress[def sseg]; 
def sfile. version *- def sbcd. version; 
Unlock[defsseg]; 
Del eteFileSegment[ def sseg]; 
def sfile. name <- name; 
-- all other fields are set to zero 
RETURN 
END; 

InitializePackedString: PROCEDURE « 
BEGIN 

ssb. string, length ♦- 1; 
ssb. size[l] ♦- 0; 
END; 

AddName: PROCEDURE [n: STRING] RETURNS [name: BcdDef s . NameRecord] » 
BEGIN 

StringDefs.AppBndChar[@ssb. string, LOOPHOLE[n . length]] ; 
name +- BcdDefs .NameRecord[ssb. string . length] ; 
StringDef s .AppendString[@ssb. string, n]; 
RETURN 
END; 

CheckForBr: PROCEDURE [name: SIRING] RETURNS [BOOLEAN] - 
BEGIN 
i: CARDINAL; 
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FOR i IN [0. .name. length) DO 

IF name[i] ■ '. THEN GOTO extension; 
REPEAT 

extension ■> 
BEGIN 
IF name. length ■ i+3 AND 

(name[i+l] » 'b OR name[i+l] » 'B) AND 
(name[i+2] - ' r OR name[i+2] « 'R) THEN RETURN[TRUE]; 
END; 
ENDLOOP; 
RETURN[FALSE]; 
END; 

FindSegmentSize: PROCEDURE [br: BOOLEAN, seg: FileHandle] 
RETURNS [count: CARDINAL, in: StreamDef s .StreamHandle] ■ 
BEGIN OPEN StreamDef s; 
in *- CreateWordStream[f ile, Read]; 
IF br THEN 

BEGIN 

Setlndex[in, [0, 7*AUoDef s .BytesPerWord]]; 

count <- in.get[in]; 

Setlndex[in, [0, count*Al toDef s .BytesPerWord]] ; 

count ^ in.get[in]; 

END 
ELSE 

BEGIN 

eof: Streamlndex ^ Fi1eLength[in]; 

count ♦- 

(eof .page* AltoDefs. Bytes Per Page + eof . byte) /AltoDefs. BytesPerWord; 

in. reset[in]; 

END; 
RETURN 
END; 

WriteSegment: PROCEDURE [in, out: StreamDef s. StreamHandle, count: CARDINAL] 
BEGIN OPEN StreamDef s; 
p: POINTER; 

p <- SystemDefs.AnocateSegment[count]; 
count ♦- ReadBlock[in, p, count]; 
IF WriteBlock[out, p, count] # count THEN ERROR; 
in .destroy[in]; 
out.destroy[out] ; 
RETURN 
END; 

DO OPEN lODefs, SegmentDefs; 

ENABLE Rubout => BEGIN Wri teLine["XXX"] ; RETRY END; 

WriteString["Module Name: "]; 

ReadID[modulename] ; 

IF modulename. length = THEN EXIT;- 

WriteChar[CR]; 

WriteString["Segment File: "]; 

Re ad I D[ segment name]; 

WriteChar[CR]; 

WriteStrfng["Defs File: "]; 

ReadID[defsfilename]; 

WriteChar[CR]; 

WriteString["Interface Size: "]; 

interf acesize ♦- ReadDecimal []; 

WriteChar[CR]; 

WriteString["Module Interface Number: "]; 

modulenumber ^ ReadDecimal[]; 

WriteChar[CR]; 

brFile ^ CheckForBr[segmentname] ; 

file ♦- NewFile[segmentname, Read, OldFileOnly]; 

outf ile. length ^ 0; 

Str IngDef s .AppendString[outfile, modulename]; 

StringDef s. Appends tring[outf ile, " .bed . '*]; 

out <- StreamDef s . NewWordStream[outf i le , Write+Append]; 

InitializePackedString[]; 

dname *- AddName[def sf ilename]; 

[count, in] «- FindSegmentSize[brFile , file]; 

Fill InModule[AddName[modulename] , count]; 

Fill InFxpor t[dname]; 
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FilllnDefsFileCdname]; 

FininHeader[]; -- Do this after all strings entered 

WriteBcd[out]; 

StreamDefs.SetIndex[out, [1, 0]]; 

WriteSegment[in, out, count]; 

ENDLOOP; 

ImageDefs.StopMesa[]; 

END. 



